home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00061_Codebook Submenu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  1.8 KB  |  32 lines
  1. on exitFrame
  2.   set gameListSprite to 2
  3.   set newMenu to CreateMenu([#statusMessage: "Make a selection."])
  4.   SetStatusMember(newMenu, [#statusMember: "codebook status"])
  5.   SetTitleBar(newMenu, [#titleBar: "codebook title"])
  6.   quitButton(newMenu, [#downMember: "ugpD_71"])
  7.   ClickDownButton(newMenu, [#hotSprites: [43], #downMember: "ugpD2_66", #statusMessage: "Back to This Issue", #destination: "coverstory"])
  8.   ShowVolumeControl()
  9.   BasicButton(newMenu, [#hotSprites: [7], #statusMessage: "Click to see the PlayStation games", #destination: "codebook PlayStation"])
  10.   BasicButton(newMenu, [#hotSprites: [8], #statusMessage: "Click to see the Saturn games", #destination: "codebook Saturn"])
  11.   BasicButton(newMenu, [#hotSprites: [9], #statusMessage: "Click to see the Nintendo 64 games", #destination: "codebook Nintendo 64"])
  12.   BasicButton(newMenu, [#hotSprites: [10], #statusMessage: "Click to see the Other games", #destination: "codebook Other"])
  13.   set textDisplay to NewTextDisplay(newMenu)
  14.   set textList to NewObject(newMenu, "Text Display Class", [#spritenum: gameListSprite])
  15.   NewTextSlider(newMenu, [#sliderSprite: 27, #sliderBottom: 403, #textDisplay: textList])
  16.   NewTextSlider(newMenu, [#sliderSprite: 28, #sliderBottom: 403, #textDisplay: textDisplay])
  17.   SetGameList(newMenu, gameListSprite)
  18.   cursor(-1)
  19. end
  20.  
  21. on SetGameList newMenu, textListSprite
  22.   global titleDatabase
  23.   set gameList to getrecords(titleDatabase, #all, "codebook")
  24.   if not listp(gameList) then
  25.     put "No games in the codebook"
  26.   else
  27.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: "Make a selection."])
  28.     set gameParams to [#gameList: gameList, #memberID: the memberNum of sprite textListSprite, #normalColor: 9, #hiliteColor: 5]
  29.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  30.   end if
  31. end
  32.